home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
receipt.exe
/
RECIEPT1.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
35KB
|
1,088 lines
VERSION 2.00
Begin Form Form1
AutoRedraw = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "INVOICE / PURCHASE ORDER"
ClientHeight = 6630
ClientLeft = 885
ClientTop = 2115
ClientWidth = 9600
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Small Fonts"
FontSize = 7.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 7320
Left = 825
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 442
ScaleMode = 3 'Pixel
ScaleWidth = 640
Top = 1485
Width = 9720
Begin CommandButton Command1
Caption = "Exit"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 2
Left = 5160
TabIndex = 8
Top = 6150
Width = 4125
End
Begin CommandButton Command1
Caption = "Clear Info"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 1
Left = 5160
TabIndex = 7
Top = 5610
Width = 4125
End
Begin CommandButton Command1
Caption = "Next"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Index = 0
Left = 5160
TabIndex = 4
Top = 5085
Width = 4125
End
Begin PictureBox Picture3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 1950
Left = 4875
Picture = RECIEPT1.FRX:0000
ScaleHeight = 8.125
ScaleMode = 4 'Character
ScaleWidth = 39.125
TabIndex = 1
Top = 2940
Width = 4695
Begin VBedit WPhone
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.2
CharSet = 16404
CombBaseLine = 1.125
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 2370
TabIndex = 32
Text = "( ) -"
Top = 1650
Version = 268435458
Width = 1965
End
Begin VBedit HPhone
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.2
CharSet = 16404
CombBaseLine = 1.125
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 225
TabIndex = 31
Text = "( ) -"
Top = 1650
Version = 268435458
Width = 1965
End
Begin VBedit CustZip
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.2
CharSet = 16388
CombBaseLine = 1
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 3600
TabIndex = 30
Top = 1200
Version = 268435458
Width = 840
End
Begin VBedit CustState
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 2
CharSet = 16386
CombBaseLine = 1
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 2940
TabIndex = 29
Top = 1185
Version = 268435458
Width = 540
End
Begin VHedit CustCity
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
CharSet = 16651
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 225
MultiLine = 0 'False
TabIndex = 35
Top = 1155
Version = 268435458
Width = 2640
End
Begin VHedit CustAddr
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 210
MultiLine = 0 'False
TabIndex = 34
Top = 645
Version = 268435458
Width = 4455
End
Begin VHedit CustName
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 210
MultiLine = 0 'False
TabIndex = 33
Top = 165
Version = 268435458
Width = 4440
End
End
Begin PictureBox Picture4
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 3660
Left = 30
Picture = RECIEPT1.FRX:51BA
ScaleHeight = 15.25
ScaleMode = 4 'Character
ScaleWidth = 40
TabIndex = 2
Top = 2940
Width = 4800
Begin CheckBox Check1
BackColor = &H00C0C0C0&
Caption = "Installation"
Height = 240
Index = 1
Left = 120
TabIndex = 6
Top = 3420
Width = 1245
End
Begin VHedit InstInstr
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 1365
MultiLine = 0 'False
TabIndex = 28
Top = 3300
Version = 268435458
Width = 3375
End
Begin CheckBox Check1
BackColor = &H00C0C0C0&
Caption = "Delivery__"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 0
Left = 120
TabIndex = 5
Top = 2925
Width = 915
End
Begin VHedit DelInstr
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 1080
MultiLine = 0 'False
TabIndex = 27
Top = 2835
Version = 268435458
Width = 3675
End
Begin ComboBox Terms
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 315
Left = 90
TabIndex = 20
Top = 2175
Width = 2835
End
Begin ComboBox ShipVia
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 315
Left = 90
TabIndex = 19
Top = 1665
Width = 2835
End
Begin VBedit ShipZip
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.2
CharSet = 16388
CombBaseLine = 1
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 3885
TabIndex = 18
Top = 1200
Version = 268435458
Width = 795
End
Begin VBedit ShipState
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 2
CharSet = 16386
CombBaseLine = 1
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 3285
TabIndex = 17
Top = 1200
Version = 268435458
Width = 540
End
Begin VHedit ShipCity
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
CharSet = 16651
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 240
MultiLine = 0 'False
TabIndex = 38
Top = 1155
Version = 268435458
Width = 2940
End
Begin VHedit ShipAddr
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 225
MultiLine = 0 'False
TabIndex = 37
Top = 645
Version = 268435458
Width = 4545
End
Begin VHedit ShipName
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 210
MultiLine = 0 'False
TabIndex = 36
Top = 165
Version = 268435458
Width = 4545
End
End
Begin PictureBox Picture2
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 990
Left = 30
Picture = RECIEPT1.FRX:EAB4
ScaleHeight = 4.125
ScaleMode = 4 'Character
ScaleWidth = 79.5
TabIndex = 0
Top = 1920
Width = 9540
Begin VBedit EstDate
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.875
CharSet = 16396
CombBaseLine = 1.188
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 7560
TabIndex = 26
Text = " / /"
Top = 675
Version = 268435458
Width = 1815
End
Begin VHedit VenContact
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 4065
MultiLine = 0 'False
TabIndex = 25
Top = 675
Version = 268435458
Width = 2700
End
Begin VBedit OrderDate
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.875
CharSet = 16396
CombBaseLine = 1.25
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 90
TabIndex = 24
Text = " / /"
Top = 660
Version = 268435458
Width = 1815
End
Begin VHedit CalledIn
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 7545
MultiLine = 0 'False
TabIndex = 23
Top = 165
Version = 268435458
Width = 1800
End
Begin VBedit VenNo
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.875
CharSet = 16396
CombBaseLine = 1.188
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 4080
TabIndex = 22
Top = 165
Version = 268435458
Width = 1815
End
Begin VHedit VenName
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 105
MultiLine = 0 'False
TabIndex = 21
Top = 165
Version = 268435458
Width = 2700
End
End
Begin PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 990
Left = 30
Picture = RECIEPT1.FRX:13DAE
ScaleHeight = 4.125
ScaleMode = 4 'Character
ScaleWidth = 79.5
TabIndex = 3
Top = 900
Width = 9540
Begin VHedit Dept
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 7545
MultiLine = 0 'False
TabIndex = 14
Top = 675
Version = 268435458
Width = 1800
End
Begin VBedit StoreDate
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.875
CharSet = 16396
CombBaseLine = 1.25
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 4080
TabIndex = 13
Text = " / /"
Top = 660
Version = 268435458
Width = 1815
End
Begin VHedit SoldBy
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 105
MultiLine = 0 'False
TabIndex = 12
Top = 675
Version = 268435458
Width = 2700
End
Begin VBedit OrderNo
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.875
CharSet = 16388
CombBaseLine = 1.125
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 7560
TabIndex = 11
Top = 180
Version = 268435458
Width = 1365
End
Begin VHedit StoreLoc
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 1.125
InflateLeft = 2.25
InflateRight = 2.25
InflateTop = 1.125
Left = 4065
MultiLine = 0 'False
TabIndex = 9
Top = 165
Version = 268435458
Width = 2700
End
Begin VBedit StoreNo
BackColor = &H00C0C0C0&
CellHeight = 2
CellWidth = 1.875
CharSet = 16388
CombBaseLine = 1.125
CombEndHeight = 0.5
CombEndMarker = 0 'False
CombHeight = 0.25
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
InflateBottom = 0.75
InflateLeft = 1.5
InflateRight = 1.5
InflateTop = 1
Left = 120
TabIndex = 10
Top = 180
Version = 268435458
Width = 915
End
End
Begin PictureBox Picture5
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 840
Left = 30
Picture = RECIEPT1.FRX:190A8
ScaleHeight = 840
ScaleWidth = 9540
TabIndex = 15
Top = 30
Width = 9540
Begin SSPanel Panel3D1
Alignment = 7 'Center - MIDDLE
AutoSize = 0 'None
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BevelOuter = 2 'Raised
BevelWidth = 3
BorderWidth = 3
Caption = "EDNA'S EDIBLE'S"
FloodColor = &H00FF0000&
FloodShowPct = -1 'True
FloodType = 0 'None
Font3D = 2 'Raised w/heavy shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 720
Left = 180
Outline = 0 'False
RoundedCorners = -1 'True
ShadowColor = 0 'Dark Grey
TabIndex = 16
Top = 60
Width = 9165
End
End
Begin Menu Menu1
Caption = "File"
Begin Menu SubMenu1
Caption = "Retrieve Reciept"
Index = 0
End
Begin Menu SubMenu1
Caption = "-"
Index = 1
End
Begin Menu SubMenu1
Caption = "Exit"
Index = 2
End
End
Begin Menu Menu2
Caption = "Help"
Begin Menu SubMenu2
Caption = "Index"
Index = 0
End
Begin Menu SubMenu2
Caption = "-"
Index = 1
End
Begin Menu SubMenu2
Caption = "Tutorial"
Index = 2
End
Begin Menu SubMenu2
Caption = "Using Help"
Index = 3
End
Begin Menu SubMenu2
Caption = "-"
Index = 4
End
Begin Menu SubMenu2
Caption = "About..."
Index = 5
End
End
End
Sub CalledIn_LostFocus ()
CalledIn.Text = LTrim$(CalledIn.Text)
End Sub
Sub Command1_Click (Index As Integer)
Select Case Index
Case 0
Form2.Show
Case 1
tmp$ = "This will clear all Customer" + Chr$(10) + Chr$(13)
tmp$ = tmp$ + "and Vendor data."
x = MsgBox(tmp$, 1)
If x = 1 Then InitVars
Case 2
Unload Form1
End Select
End Sub
Sub CustAddr_LostFocus ()
CustAddr.Text = LTrim$(CustAddr.Text)
End Sub
Sub CustCity_LostFocus ()
CustCity.Text = LTrim$(CustCity.Text)
End Sub
Sub CustName_LostFocus ()
CustName.Text = LTrim$(CustName.Text)
End Sub
Sub DelInstr_Update ()
DelInstr.Text = LTrim$(DelInstr.Text)
End Sub
Sub Dept_LostFocus ()
Dept.Text = LTrim$(Dept.Text)
End Sub
Sub EstDate_Change ()
If CheckDate%(EstDate) Then
MsgBox "Invalid Estimated Arrival Date!!!"
EstDate.SetFocus
End If
End Sub
Sub Form_Load ()
ItemInfo(0).Info = "Candy Bar"
ItemInfo(0).Price = .95
ItemInfo(0).Unit = "ea."
ItemInfo(1).Info = "Cheeseburger"
ItemInfo(1).Price = 2.15
ItemInfo(1).Unit = "ea."
ItemInfo(2).Info = "Potato Chips"
ItemInfo(2).Price = .95
ItemInfo(2).Unit = "ea."
ItemInfo(3).Info = "French Fries (small)"
ItemInfo(3).Price = .95
ItemInfo(3).Unit = "ea."
ItemInfo(4).Info = "French Fries (large)"
ItemInfo(4).Price = 1.23
ItemInfo(4).Unit = "ea."
ItemInfo(5).Info = "Hamburger"
ItemInfo(5).Price = 1.99
ItemInfo(5).Unit = "ea."
ItemInfo(6).Info = "Microsoft VisualBasic 1.0"
ItemInfo(6).Price = 99.95
ItemInfo(6).Unit = "ea."
ItemInfo(7).Info = "Microsoft Windows 3.1"
ItemInfo(7).Price = 99.95
ItemInfo(7).Unit = "ea."
ItemInfo(8).Info = "Pizza"
ItemInfo(8).Price = 1#
ItemInfo(8).Unit = "ea."
ItemInfo(9).Info = "Soda Pop (small)"
ItemInfo(9).Price = .5
ItemInfo(9).Unit = "ea."
ItemInfo(10).Info = "Soda Pop (large)"
ItemInfo(10).Price = .5
ItemInfo(10).Unit = "ea."
ItemInfo(11).Info = "6' Sub sandwich"
ItemInfo(11).Price = 2.5
ItemInfo(11).Unit = "ea."
OrderNo.Text = "0"
ShipVia.AddItem "Air Freight"
ShipVia.AddItem "Federal Express"
ShipVia.AddItem "Postal Service"
ShipVia.AddItem "Surface Mail"
ShipVia.AddItem "U.P.S."
Terms.AddItem "None"
Terms.AddItem "C.O.D."
Terms.Text = "None"
Form1.Show
Form1.WindowState = 2
StoreDate.Text = Format$(Now, "mm/dd/yy")
End Sub
Sub Form_Unload (Cancel As Integer)
x = MsgBox("This will end your Reciept Session.", 1)
If x <> 1 Then Cancel = -1
End Sub
Sub InstInstr_Update ()
InstInstr.Text = LTrim$(InstInstr.Text)
End Sub
Sub OrderDate_LostFocus ()
If CheckDate%(OrderDate) Then
MsgBox "Invalid Ordered Date!!!"
OrderDate.SetFocus
End If
End Sub
Sub Picture1_DblClick ()
Form4.Show 1
End Sub
Sub Picture2_DblClick ()
Form5.Show 1
End Sub
Sub Picture3_DblClick ()
Form6.Show
End Sub
Sub Picture4_DblClick ()
Form7.Show
End Sub
Sub ShipAddr_LostFocus ()
ShipAddr.Text = LTrim$(ShipAddr.Text)
End Sub
Sub ShipCity_LostFocus ()
ShipCity.Text = LTrim$(ShipCity.Text)
End Sub
Sub ShipName_LostFocus ()
ShipName.Text = LTrim$(ShipName.Text)
End Sub
Sub ShipVia_Update ()
End Sub
Sub SoldBy_LostFocus ()
SoldBy.Text = LTrim$(SoldBy.Text)
End Sub
Sub StoreDate_LostFocus ()
If CheckDate%(StoreDate) Then
MsgBox "Invalid Date!!!"
StoreDate.SetFocus
End If
End Sub
Sub StoreLoc_LostFocus ()
StoreLoc.Text = LTrim$(StoreLoc.Text)
End Sub
Sub SubMenu1_Click (Index As Integer)
Select Case Index
Case 0
MsgBox "Feature Unavailable"
Case 2
Unload Form1
End Select
End Sub
Sub SubMenu2_Click (Index As Integer)
Select Case Index
Case 0, 1, 2
MsgBox "Help file not available"
Case 5
Form9.Show 1
End Select
End Sub
Sub VenContact_LostFocus ()
VenContact.Text = LTrim$(VenContact.Text)
End Sub
Sub VenName_LostFocus ()
VenName.Text = LTrim$(VenName.Text)
End Sub
